home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gigarom 4
/
Mac Giga-ROM 4.0 - 1993.toast
/
FILES
/
DEV
/
I-Z
/
ResCopy.cpt
/
ResCopy XCMD
/
background_3294.txt
< prev
next >
Wrap
Text File
|
1989-02-02
|
4KB
|
212 lines
-- background: 3294 from stack: in
-- bmap block id: 6119
-- flags: 0000
-- background id: 0
-- name: Stack Info Background
-- part 3 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=124 top=55 right=76 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 8448
-- line height: 18
-- part name: Stack Name
-- part 15 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=88 top=80 right=115 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack Author
-- part 6 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=58 top=122 right=141 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack Date
-- part 7 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=373 top=122 right=141 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack Version
-- part 8 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=122 top=148 right=184 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Related Stacks
-- part 9 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=136 top=192 right=259 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Brief Description
-- part 41 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=20 top=21 right=44 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HOme
----- HyperTalk script -----
on mouseUp
go home
end mouseUp
-- part 45 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=28 top=275 right=326 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Category
-- part 61 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=134 top=233 right=272 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
global lockIt
put "unlock" into lockIt
set locktext of field "Category" to true
show bkgnd button "Blank Button"
hide field "Info"
show bkgnd button "Delete Category(s)"
end mouseUp
-- part 55 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=92 right=301 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Explain
----- HyperTalk script -----
on mouseUp
set scroll of field "Explain" to 0
hide field "Explain"
end mouseUp
-- part 62 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=18 top=97 right=117 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Updated
----- HyperTalk script -----
on mouseUp
if the shiftKey is down then
hide bkgnd button "Updated"
exit mouseUp
end if
Answer "Have the categories been updated?" with Yes or No
if it is "Yes" then
put the long date into line 2 of field "Category Selection"
end if
end mouseUp
-- part 67 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=425 top=16 right=57 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
visual dissolve
pop card
end mouseUp